








Ce OS) ei ae te eat ee tS tO Se De Ua oe aa ae a es 


I7823 --- CLOCK/4 962 P/N=1635405 EC=755285 PAGE 01 17823 --- CLOCK/4 962 P/N=1635405 EC=755285 PAGE O1A 
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3 COPY 4L0OG7823 ** MAP EC HISTORY ** 002500 2642 198 DC A (EN enh POINT TO MAP ENTRY POINT TABLE 
Qo io RoR doi OR IO I A a IIR IOI IR ICI IR IR I IK ii ik tok i i ate kee ae aici oie 2k kk 199 BRK KE KEKE KK EK ee HH AK KKK KKK KEKE KE KEKKEKEAKEKEREKEKEEEKEEK EE 
5 * 53 DOD RHR KAA MH RH KKH RK KH KEKE ERK KEK EKER KKK EKER EEK EK EKER EEEEKEKEEEEEK 
6 * KK PREREQUISITES * * 201 ** “* 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPFRVISOR (D3C00) *% 
8 * NONE * 203 ** TO LOCATE THE CORRECT ae TO INVOKE, TO OBTAIN THE PROPER *% 
9 * * 204 ** PARAMETERS TO PASS TO THE TUtS AND T6 PASS TO THE OPERATOR ** 
10 I ICRI RO OR i IO OIRO IR kook a te ed kak tak tek tok fc ok ie ie ok ee oc 205 ** THE INDICATED MESSAGE (S) . THERE ARE FOUR TABLES USED FOR THIS * 
11 * * 206 ** PUPPOSE THEY ARE: ** 
12 * * KK MODIFICATIONS * Ke * 207 ** ** 
13 * * 208 ** STEP AND RULE ADDRESS TABLE ** 
14 * CHANGES MADE TO MEET PROGRAM REQUIREMENTS * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND *% 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ** 
16 oR RIO IO IIR RII IIR IK dak kk tok lok te tokok dt ik ok 211 ** ENIRIES ARE AS FOLLOWES * 
17 * * 212 ** AN ADDRESS OF THE RULE DC START AREA ** 
18 * KK REA'S INCORPORATED * * 213 ** B THE STEP NUMBER IN DECIMAL ** 
19 * * 214 ** Cc AN EQUATE FOR THE STEP NUMBER * x 
20 * NONE * 215 ** ** 
21 * * 216 ** RULE INFORMATION TABLE *% 
22 FRI OR II OR RR IR II RR IK I io ke oki tok ak ak kote tea cok i ok ok leak ok 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE ae He 
23 * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN ** 
24 * aK SPECIAL INSTRUCTIONS eK * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS ** 
25 * * 220 ** INDICATED WITH A X'OOOO! FOR THE RULE EQUATE. * * 
26 * NONE * 221 ** ** 
27 * * 222 ** SOQUES **x 
2B ek RR a RR I I RII ICR aR Rok kta ik kk tok ak kk tho ioe ok kk dak ik lok tate a ie ye 2k oc otc akc 2k ok ok oc 223 ** A) RULE EQUATE X*'0100! 4 
29 * * 224 ** B) ADDRESS OF THE YES LEG RULE ** 
30 * KK E. C. HISTORY Ke * * 225 ** ** 
31 * * 22€ ** SFIXT ** 
322 * DATE 17DEC76 DATE OYMART7 DATE 10JUN77 DATE OTMAR78 * 227 ** A) RULE EQUATE X'0O101* ** 
33 7 E.C. 578486 E.C. 578638 E.C. 578625 E.C. 755285 238 td B) ADDRESS OF MESSAGE TO PRINT oe 
QS He HR HH RH HE HE HH a BC ie a a a eR I a RR He Ra oR oR oo Ko ek ok ok eke kK 230 ** $STOP 
002500 37 17823 START x'2500'! START ADDRESS OF ALL 'I* TYPE PROG 231 ** A) RULE EQUATE X'0102!* ** 
000100 38 @QUES EQU X'0100 ! EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE i 
000101 39 @FIXT EQU X'OV0O1t EQUATED VALUE FOR MDI STATEMENT 233 ** ** 
000102 40 @STOP EQU X¥'0102!5 FQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO *% 
000200 41 @GOTO EQU x'0200°* EQUATED VALUE FOR MDI STATEMENT $37  & A) RULE ECUATE X*0200! * 
000201 42 @CALL EQU Xx'0201' EQUATED VALUE FOR MDI STATEMENT 36 ** B) ADDRESS OF year * 
000300 43 @OINPT EQU X'0300' EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO TO * x 
000400 44 @OUXX EQU X'O04008 EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * 
000500 45 aTuxx EQU xX'0500' EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFER ENCE % HK 
000600 46 @NVLD EQU x'0600'! EQUATED VALUE FOR MDI STATEMENT 241 *x *% 
000000 47 EQ EQU X'0000! EQUATE FOR 242 ** SCALL * 
000004 48 NE EQU x'00048 EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X*'O201° %* 
000008 49 AI EQU x'o0008' ECUATE FOR 244 ** B) ADDRESS OF MESSAGE P ** 
00000C 50 NH EQU x'o000CcC" EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL ** 
000010 51 LO EQU X'0010!° EQUATE FOR LO 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * & 
000014 52 NL EQU X'00148 EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFEP ENCE % 
000010 53 LT EQOU X¥'0010! EQUATE FOR LESS THAN 248 ** * & 
O00000C 54 LE EQU X'OOOC'! EQUATE FOR LESS THAN OR EQUAL TO 249 ** S$INPT ** 
000008 55 Gt EQU x'0008! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X!0300'! * 
000014 56 GE EQU X'001748 EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE Met OR HEX) * & 
000200 57 ON EQU X'0200? EQUATE FOR ON 252 ** C) ADDRESS OF YES LE ULE * * 
000202 58 OF EQU X'0202' EQUATE FOR OFF 253 °** D) DESTINATION FOCKE TON OF INPUT DATA * 
000204 59 MX EQU X'*0204' EQUATE FOR MIXED 254 ** EF) LENGTH OF INPUT DATA ** 
000000 60 EBC EQU xXx'0000! EQUATE FOR EBCDIC DATA [RANSFER 255 ** F) LOWER LIMIT OF GOOD DATA * 
000001 61 HEX EQU X'O0001' EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA %* 
000001 62 NL EQU x'0001' EQUATE FOR EXTERNAL REFERENCE 257 ** * * 
000000 63 INTRNL EOQU x'oooo! EQUATE FOR INTERNAL REFERENCE 258 ** SQUXX * * 
000000 64 PARM EQU x'o0000! EQUATE INDICATING PAPAMETER 259 ** A) RULE EQUATE x'to4oo? *x 
000001 65 EQU xX'O0001718 EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE ** 
000002 66 EQU x'0002' EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS (INITIAL) * 
000000 67 DUMMY EQU X'O0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) * x 
001800 69 PID EQU *-xX'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * * 
000232 70 PTYPE EQU *-—X"*22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU * * 
00180C 71 STEPNUM EQU PID+xX'OO00C! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER *% 
00180E 72 OPWD1 EQU PID+X*OOOE! ADDRESS OF OPTION WORD ONE 266 ** * 
0018 10 73 WD2 EQU PID+x*'0010! ADDRESS OF OPTION WORD TWO 267 ** STUXX * 
001818 74 TUSTATUS EQU PID+x'0018!8 ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE x'05008t * 
OO181A 75 TUWORK Eau PID+X'OO1A! ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG ROLE * * 
O00189A 76 TUPARM1 EQU PID+X'OO9A® ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS x 
00189C 77 TOUPARM2 EQU PID+x'OO9C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS *& 
00189E 78 TUPARM3 EQU PID+X'OO9E® ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPAFED RESULT ** 
0018A0 79 TUPARMY EOQU PID+X*"OOAO! ADDRESS OF PARM 4& POINTER 273 ** F) MASK FIELD FOR COMPARE ** 
0018A2 80 TUPARMS EQU PID+X'OOA2* ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES Se 
OO18A4 81 TUPARM6 EQU PID+X'OOA4! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU * 
0018A6 82 TUPARM7 EQU PID+X'OOA6!? ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WOPDS OF PARAMETER * x 
0018A8 83 TUPARM8 EQU PID#+X'QOA8! ADDRESS OF PARM 8 POINTER 277 ** XK 
OO18AA 84 TUPARMO EQU PID+X'OOAA'* ADDRESS OF PARM 9 POINTER 278 ** SNVLD OK 
OO18AC 85 TUPARM10 EQU PID+X'OOAC!® ADDRESS OF PARM 10 POINTER 2719 ** A) RULE EQUATE X*0600! kK 
OO18AE 86 TUPARM11 EQU PID+X*'OOAE! ADDRESS OF PARM 11 POINTER 281 ** * 
0018B0 87 TUPARM12 EQU PID+xX'OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * 
0018B2 88 TUPARM13 EQU PID+X*QOB2'° ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WIIHIN THE MAP THAT * 
0018B4 89 TUPARM14 EQU PID+X'OORBG! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE 3% 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PAPM 15 POINTER 285 ** REFERENCED BY NAME AND ADDPESS. ENTRIES ARE AS FOLLOWES: ** 
0018B8 91 TUPARM16 EQU PID+X'tOOBS8! ADDRESS OF PARM 16 POINTER 286 ** kK 
OO18BA 92 TUMSGWTR EQU PID+X*OOBA'* ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT * & 
0018 BE 93 TOUUA EQU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE * & 
0018C0 94 TUDA EQU PID+X*O0OCO*! ADDRESS OF DEVICE ADDPESS IN FBC 289 ** * x 
0018C2 95 TUBUFF EQU PID+X*OOC2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xXx*O0OOO! ** 
0018C4 96 TULAST EDU PID+x'O0OC4! ADDPESS OF LAST ADDRESSABLE WORD 291 ** ** 
0018C6 97 TURESULN EQU PID+X'OOC6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TARLE * x 
0018C8 98 TURESUL EQU PID+xX*0O0C8! ADDRESS OF TU FESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * 
0018FC 99 MAPNAME EQU PTD+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDY SUPERVISOR. THE TABLE IS AS FOLLOWES: * 
001948 100 TUINPT EQU PID+X'0148° ADDRESS OF FINPT DATA 295 ** 4k 
00196E 101 PARMARA EQU PID+X'O16E® ADDRESS OF SINPT INPUT AREA 296 ** A) EQUATE FOR START OF Beet ee. BLOCK *% 
001988 102 @DCADD1I EQU PID+X*O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAG ** 
OO019BA 103 @DCADD2 EQU PID+X'O1BA!? MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE eK 
0019C4 104 SUPSTAT EQU PTD+xX'O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE ; cS 
0019D0 105 DEVADD EQU PID+X*O1DO! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE ** 
OO19DA 106 DEVADD1 EQU PID+X'O1DA' ADDRESS OF DEVICE ADDRESS TABIE 1 301 ** F) SECOND LINE OF MESSAGE eK 
OO19E4 107 DEVADD2 EQU PID+X'O1E4!? ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G é * 
OO19EE 108 DEVADD3 EQU PID+X'O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** * 
0019F8 109 DEVADD4Y EQU PID4+X'O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 JOU 2K OIC ROR IO ok koi ao i rok fekok ak take kota foie fk foi feof i eae 2k akc 
001A02 110 DEVADD5 £EQU PID+x*0202' ADDRESS OF DEVICE ADDRESS TABLE 5 3 OS ek eK I IOI IC OR OR OK ok a OK Gi iokOK ok dak kok ok tok katt tea 
OO1A0C 111 DEVADD6 et PID+X'0O20C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A 16 ae DEVADD7 EET iis Bape eee ADDRESS OF DEVICE ADDRESS TABLE 7 
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L7823: o== CLOCK/4 9F2 P/N= 1635405 EC=755285 PAGE 03 17823. -S-= CLOCK/4962 P/N=1635405 EC=755285 PASE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRTGHT IBM CORP 1976 
536 N00021 secre TYPE=XTPNL, EP=A,MAP=7824,FT=(F00133) ,GTO=((7824,A)) 00275A 0000 653+DCB7 , DC alee LAST DCB TAFLE, BYTE COUNT 
002634 0200 537+N00021 A(@GOTO 00275c 90000 6544+DCB8 DC A (*-* LAST DCB TABLE, BUFFEP ADDPESS 
002636 2724 538+ DC A (F00 133) 655+* 
002638 F7F8F2F4 539+ DC CL4' 7824! QO0275E 656*CSBUF EQU * CYCLE STEAL DATA RINFFEP 
00263C C140 540+ DC CL2"*A?t 00275E 0000 6574+CSTL1 DC A (*-* CYCLE STEAL BUFFER, PESIDUAL ADFS 
00263E 0001 541+ DC AL2 (XTRN 002760 0000 6584+CSTL2 DC A (*-* CYCLE STEAL WD 2, hEVICE DEPEND 
002640 0000 542 C AL2 (DUMMY 002762 0000 6594CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 
002642 543 ENTPT 002764 0000 660+CSTLY DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND 
BO RRO IO ORI IOI OR IOC IO OR tok cok ik kK OK ok. kk ea ak ak ac i ok 002766 0000 6614+CSTL5S DC A (*-* CYCLE STFAL WD 5, DEVICE DEPEND 
SU5 2 IR RIO III IORI RR ROO RIOR IIR II ROR a I kkk eK 002768 0000 662+CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 
546 ** x 00276A 0000 663+CSTL7 DC A (*¥~-* CYCLE STEAL WD 7, DEVICE DEPEND 
ae = ENTRY POINT TABLE pe 00276C 0000 pceige tn” DC A (*-* CYCLE STEAL WD 8, DEVICE D®PEND 
4 
509 ORR IIR IRI III IIR RRO I IR tak ak kkk kkk teak kk ko ok i ake kok ka ic ak ic ak keke ek tok 00276E 0000 €66+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 
550 oO OR OR RR RR ROR ROR IORI IG kok a dito ek 002770 00000000 667+$DATA DC 2A + *} OPTIONAL DATA 
551 ENTPT EP= A STEP= 00001 002774 0021 668+$INTL DC X"0021" INTEPRUPT LEVEL PEQUESTED 
002642 C140 552+ DC 002776 0000 6694+TURTN DC A (*- ab TEST UNIT RETURN ADFS TO MDI 
002644 2558 553+ DC x ("00001 002778 00B2 6704+$DVID DC X"OOB2°* DEVICE ID 
002646 0000 554 AL2 (DUMMY) 00O277A 19D0 671+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
555 FORO IOI ROR IO kai a koto k etait te tak ak ik ak ak Rak RR Re ak aR Ra RC Rk a ae ick af ae oe ae oie ak ac ak ke koe 00277C 0000 672+ DC A (*-*) IBIS CYLINDER ADDRESS 
556 OOO IOI RO OR OR OR GOR ok CK dq ig i kik ik 673+* 
S57 ** tek 6744+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
558 ** MESSAGE TABLE ok 675+* FUNCTION. THE FESULTS THAT WERE SET UP IN THE RESULTS AFPEA APE 
559 ** 4k 676+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFOPMED. 
560 ea IC I III ICI RII IO OR IRICIIIIOII OI I IRR OR ROR ROR Ra fe ake eae i ae fie oe ake ice ake ake ke a oi ae ok a 677+* 
S61 RIOR OR io kg dak ok dock i dok ok kok kkk ok de kk 0OO277E 4020 273E 3C02 678+T3C02 MVWI xX'3C02',STUID SET UP TEST UNIT ID 
002648 562 FOOO0OO04 EQU * 002784 5700 679+ BXS (R7 RETURN TO MDI SUPVR 
002648 0003 563 DC AL2 (0003) 681 COPY CCMECU 
00264A 002C 564 pc A (0044) ASWMECETISCLCSCSSCSSCLCSCLSSSS CCS SSCL SSCS LCC CS CSC SS STC SCS Ste eS PP Tete Pe Te STL ett ef 
00264C DICSD7TD3CIC3C540F 565 pc CLOOGY4* REPLACE 4962 CARDS A-A1C2,A-A1D2,ATTACHMENT.'! 683 * * 
002678 0Q002C 566 DC A (0044) 684 * EQUATED NAMES FOR SUPPORTED SVC'S * 
Q00267A CIDSEZDTICSC3E340C 567 DC CLOO4U4TINSPECT AND RESEAT CABLES BETWEEN ATTACHMENT'® 685 * * 
002646 0022 568 DC A (0034) 686 ORCI ROC OK I ICC IO Ci GI aia doicitok lok ig iok gk kaikki kako kok ake 
0026A8 CID5C440OF4UFOFEF24 569 DC CLOO34'AND 4962. REPLACE A-A1G2, A-A1H2. ! 000000 687 OUT EQU 0 OUT SVC 
OO26CA 570 FO0008 EQU * 000001 688 OUTIN EQU 1 OUTIN SVC 
O0026CA 0002 571 DC ern 000002 689 IDLE EQU 2 IDLE SVC 
0026CC 002A 572 DC A (0042) 000003 690 ASCII EQU 3 HEX TO ASCIT SVC 
0026CE DIYCSD7D3CIC3C540F 573 DC CLOOG2"*REPLACE 4962 ATTACHMENT CARD, INSPECT AND ! 000004 691 CHNGE EQU 4 CHANGE LEVEL SVC 
O026F8 OQOO02A 574 DC A (0042) 000005 692 PGNCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
OO26FA DICHSE2ZC5SCITE340OC3C 575 DC CLOOU2'RESEAT CABLES BETWEEN ATTACHMENT AND 4962 ! 000006 693 EXIT EQU 6 EXIT SVC 
002724 576 F00133 EQU * 000007 694 TERM EQOU 7 TERMINATE SVC 
002724 0001 577 DC AL2 (0001) 000008 695 RESET EQU 8 RESET DEVICE SVC 
002726 0010 578 DC A (00 16) 000009 696 RID EQU 9 READ ID SVC 
002728 D4&CID74OFTF8F2F34 579 DC CLOOT6'MAP 7823 CORRECT! OOOOOA 697 START EQU 10 START CYCLE STEAL SVC 
580 DIT OOB2 OOO00B 698 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
002738 0000 582+0OPTN1 DC x*00008 PFOGRAM OPTION CONTROL WORD 1 00009C 699 PREP EQU g 2 PREPARE DEVICE SVC 
583+* 00000D 700 READO EQU 13 FEFAD WITH FUNCTION BIT 3 OFF SVC 
00273A 0000 584+OPTN2 DC X*00008 PROGRAM OPTION CONTROL WORD 2 Q0000E 701 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
585+* BIT HEX OOOOOF 702 RSTAT EQU 15 READ STATUS SVC 
000010 586+B48 EQU 16 0 8 PROBLEM PROGREM CONTROL BITS 000010 703 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000011 587+B49 EQa 17 1 u * 000011 704 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 OWN SVC 
000012 588+B50 EQU 18 2 2 * THESE BITS APE USED WITH THE 000012 705 CTRL EQU 18 CONTFOL SVC 
000013 589+851 EQU 19 3 1 * SECOND OPTION WD AND APE TO 000013 706 RICB EQU 19 RELEASE INTEKUPT CONTROL BLOCK SVC 
| 000014 590+B52 EOU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 0900014 707 CICB EQU 20 CONNECT INTEPRUPT CONTROL BLOCK SVC 
000015 491+B53 EQU 21 5 4 * | 000015 708 HIO EQU 21 HALT ALL I/0 
000016 592+B54 EQU 22 6 2 * 000016 709 KEQSD EQU 22 REQUEST USE OF DCP DISK SVC 
000017 593+B55 EQU 23 7 1 * 000017 710 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 594+B56 EQU 24 8 8 * 000018 711 HALT EQU 24 HALT SVC 
000019. 595+B57 EQU 25 9 4 * 000019 712 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
OOOOTA 596+B58 EQU 26 10 2 * OOOO1A 713 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
000018 597+B59 EQU 27 11 1 * 00001B 714 ATOH EQU 27 ASCIT TO HEX SVC (STRING 
00001C 598+B60 EQU 28 12 8 * 00001C 715 HTOA EQU 28 HEX TO ASCTI SVC ere ene 
000010 599+B61 EQU 29 13 4 * 00001D 716 ETOA EOU 29 EBCDIC TO ASCII S STRING 
OOOO0TE 600+BE2 EQU 30 14 2 * Q0001E 717 ATOE EQU 30 ASCIT TO EBCDIC SVC STRING 
O00001F 601+B63 ECU 31 15 1 * OOOO1F 718 READI EQU 31 READ DATA SETS FOR MDI/UTIL 
OOOO 1E 602+CH EQU 30 14 2 CHARACTER SUPPLIED 000020 719 WRITI EQUL 32 WRITE DATA SETS FOR UTIL 
QO001F €03+CMP EQU Me 15 1 COMPARE OPFRATION TQ RR HR He i RR IR I RI kk oR RIOR OR I RRR RR a i oe ie ke eo a a ake a ie ake oe 
00273c 90000 605+OPTN3 DC X¥*0000° PROGRAM OPTION CONTROL WORD 3 722 * * 
€06+* 7123 * EQUATES USED BY TU'S AS CONSTANTS * 
607+* O MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cS 724 * * 
608+* 1 £#=EPROR INTERRUPT ER 9 CS AVAILABLE CSA 725 ORR ROR OR ROR IR iii i a a i a i a i ak ak ie ok a ok aie oka 
609+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERPUPT ERP CE QOQOO04E 72—£ PLUS EQU Ct+t PLUS CHAR 
610+* 3 INTERRUPT RECEIVED IN 11 ISR PITS ON (1-7) ISBRON 000050 727 MINUS EQU Ct=" MINUS CHAR 
611+* 000000 729 ZERO EQU 0 
612+* 4 EXPECTED a XE V2) TEST UNITE a VOID NG 000001 730 ONE FOU 1 
613+* 5 HARD EFROR FOUND HE 13. OI0 CC ERROR Tocc 000002 7321 TWO EQU 2 
614+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOTIN 000003 732 THREE EQU 3 
615+* 7 NO INTF EXPFCTED NI 15 INTERRUPT CC ERROR INCC 000004 733 FOUR EQN 4 
616+* BIT HEX 000005 734 FIVE EQU a) 
000020 6174+MI EQU 32 Q 8 MYSTERY INTEPPUPT HAPPENED 000006 1735 SIX EQU 6 
000021 618+ER EQU me 1 4 ERROR FECEIVED ON INTERRUPT 000007 736 SEVEN EQU 7 
000022 6194XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 7137 EIGHT EQU 8 
000023 620+1IN EOV i Ne 3 1 INTEFPUPT PECEIVED CONTPOL BIT 000009 738 NINE EQU | 
000024 6214+XE EQU 36 y 8 EXPECTFD EPPOPR FPESPONSE QOOOOOA 139 TEN EQU 10 
000025 622+HE EQU 37 2 4 HARD ERROR, 8 FFETRIES 000008 740 ELEVN QU 11 11 
000026 623+SLE EOQU 38 6 2 TNTERRUPT CN WRONG LEVEL ERPOR 00000C 741 TWELV EQU 12 12 
000027 624 4NT EOD 39 7T 1 NO INTEPRUPT FXPECTFD E 00000D 742 THERIN EQU 13 13 
000028 625+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS OOO00F 743 FIVIN EQU 15 15 
000029 €26+CSA EQU 44 9 4 CYCLE STEAL AVAILAELE 0000 10 744 SIXEIN EQOU 16 16 
OO002A 627+CE EQU Y2 10 2 CYCLE STEAL Pe INEPPRUPT EPROR 000020 745 THRY2 EQU 32 32 
00002B 628+ISBON EQU 43 11 1 ISB BITS ON 000040 746 SIXT4 EQU 64 64 
00002C 6294+NG EQU uy 12 8 TEST UNIT RE OLT NO GOOD 000080 747 ONE28 EOU 128 128 
00002D 6304+I0CcCC EOU 45 13 4 OTO CC FRFOP 000100 748 TWO56 EQU 256 256 
00002E 631+NOIN EQU 46 14 2 NO INTERRUPT 000400 749 ONEK EQU 1024 1024 
0000 2F 632+INCC EQU 47 15 1 INTERRUFT CC ERROP 000800 750 TWOK EOQU 2048 2048 
6324+% 000C00 751 THREK EQU 3072 3072 
634+% COMMON PUFFEP FOR PRINTING DATA 001000 752 FOURK EQU 4096 4096 
635+* FFFFFF 754 M1 EQU = -1 
00273E 0000 637+STUID DC A (*-* es UNIT TDENTIFICATION FFFFFE 755 M2 EQU ae =2 
002740 0000 638+SIOIN DC A (*-* O AND INTR CONDITION CODES FFD 756 M3 EQU =3 =3 
002742 0000 639+SISB DC A (*-* INTR STATUS BYTE & DEV ADPFPS FFFFFC 757 M4 E 4 -4 
002744 0000 6404+LSTIO DC B (*—* RY OF LAS™ I/O + 4 BYTES 759 RI IC IO IO ICI IO OR lor go II iio dak Rigi a BI fo aR gok dak a tok oak fear 
002746 0000 641+4+DEV1 DC A (*-* DEVICE DEPENDENT DATA 760 * * 
002748 0000 6424+DEV2 DC BR O(*-* * 761 * THE FOLLOWING APE EQUATES FOP BIT DISPLACEMENTS FROM THE * 
OO274AR 0000 6434+DEV3 Dc A (*-* * 762 * BEGINNING CF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
00274C 0000 644+DEV4 DC Rh (*-* * 763 * * 
002746 F4S+SCTID EQU DEV1 RFAD ID RUFFER FOR IBIS & TERN (60 CR OI I I or OI ok i go lok i kok keto ated ak kak teak ie kei ie ic afc ae 
OO27THE 646+DCBUF EQU * DCB BUFFEP FOR LAST DCB USED 000000 765 BSO EQU 0 
0O0274E 0000 647+DCB1 DC A (*-4* LAST DCB TAPLE, CONTPOL WORD 000001 766 BS1 EOU 1 
002750 90000 648+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 167 BS2 EQU 2 
002752 0000 649+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000003 768 BS3 EQU 3 
002754 0000 6504#DCB4 DC A (*-* LAST DCE TABLE, DEV DEP WORD 000004 769 BS4& EQU 4 
002756 0000 651+DCB5 DC A (*-* LAST DCR TABLE, DEV DEP WORD 000005 770 BSS EQOU 5 
002758 0000 652+DCB6 DC A (#4 LAST DCB TABIE, CHAIN ADPS 000006 771 =BS6 EQU 6 
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I7823 --- CLOCK/4962 P/N=1635405 EC=755285 PAGE 05 77823 --- CLOCK/496 2 P/N=1635405 EC=755285 PAGE OSA 
LOCTR OBJECT TEXT STMT SOURCT STATEMENT COPYRIGHT IBM CORP 1976 1OCTR OBJECT TEXT STMT SCURCE STATEMENT COPYRIGHT IBM CORP 1976 
0028B0 680C 28E0 1002 Io TDCB1 READ SENSE WORD 2 00295C 4020 2AAA 27B6 1117 $FIDS MVA RSDCE,IODCR SET UP CONTROL BLOCK FOR SVC CALL 
0028B4 6F05 28CE 1003 BNCC 7,CCERR CHECK COND CODE 002962 OBFF 1118 MVBIT X'FF® ,P3 SET RUFFEP TO FfS 
0028B8 5601 1004 BXS (R6, 2) RETUPN TO CALLEP 002964 4524 285EF 1119 MVA SCTST,R5 SETUP READ SECTOR ID BUFFER ADRS 
1005 * 002968 4724 OOOE 1120 MVWI 6,R7 SETUP BUFFER LENGT 
OO28BA EEOD 2744 1006 SENSO MVW SAVE ADDRESS OF LAST IO 00296C 2BAC 1121 FEN P3 tes) INIT READ SECTOP TD BUFFER 
OO28BE 8028 19D0 28DD 1007 MVB DED D- PpcRo+4 LOAD DEVICE ADDRESS IN TDCB 00296E 4020 27C4 285E 1122 MVA sct T,PSPCB+14 DATA ADDR 
0028C4 €680C 28DC 1008 To aye BO READ SENSE WORD 1 002574 5019 1123 J XIO 
0028C8 6F05 28CE 1009 BNCC CCERR CHECK COND CODE 1124 * 
0028CC 5601 1019 BXS (he. 2) RETURN TO CALLER 002976 4020 2ARA 2826 1125 SWKEW MVA WKDCB,YODCB SET UP CONTROL BLOCK FOR SVC CALL 
1011 * 00297C 4020 2834 2852 1126 MVA WRSID, WKDCB+14 DATA ADDR 
0028CE 706E 1012 CCERR DC XS7O6E* COPY STATUS ANY LEVEL INTO R3 002982 5012 1127 J XTO 
0028D0 336A 1013 SPL 13, P3 POSITION CC CODE TO BITS 13-15 1128 * 
0028D2 C328 2740 1014 HVB RQ: SIOIN * PUT TN LOG AREA 002S84 4020 2AAA 27A6 1129 SWSEC MVA WSDCE,IODCB SET UP CONTROL BLOCK FOP SVC CALL 
0028D6 68D2 0000 1015 B (R Rb) * RFTUPRN TO USER 002S8A 4020 27B4 2852 1130 MVA WRSID, WSDCB+14 DATA ADDR 
1016 * 002990 5S00B 1131 J XIO 
OO28DA 6F05 1017 IORST DC X"6FOSt PESET IO 002992 48020 2AAA 27A6 74132 $WSTS MVA WSDCB,JODCB SET UP CONTROL BLOCK FOR SVC CALL 
0028DC 2205 1018 IDCBO DC X¥*2205!8 SENSE WORD ZERO 002998 4020 27B4 2858 1133 MVA WSIDT, "WSDCB+14 DATA ADDR 
O0O0O28DE 0000 1019 RDATAO DC pe DATA WORD 00299E 5004 1134 g XIO 
0028E0 2105 1020 IDCB1 DC x¥"21058 SENSE WORD ONE 1135 * 
0028EF2 0000 1021 RDATA DC es 002920 4020 2AAA 2786 1136 $DIAG MVA DGDCB, 1IODCB SET UP CONTROL BLOCK FOR SVC CALL 
O0O28F4 4005 1022 IDCBCE1 DC xtfygoods CE DIAG OP1 002986 5000 1137 J XTO 
0028E6 0000 1023 CEDAT DC hee’) SENSE DATA 1138 IT 
OO28F8 4105 1024 IDCBCE2 DC KX *410 q CE DIAG OP2 VV BD DR A HH Hee he He he ee ee he eK ee a He ee eh 2 He a he a he ee he he ae 2 ae 2c fe 2 eo fe a ae aK ok ok ke ek KK DIO TUL TA ** 
OO28EA 0000 1025 CEDAT2 DC A (*-* SENSE DATA 11404+* 
0028EC 2F05 1026 IDCBRAP DC xX'2F05? RFEFAD DIAG WRAP 1141+* SUB-ROUTINE 
OO28EE 0000 1027 RAEDAT DC A (*-* SENSE DATA 1142+* 
000232 1028 CPUID EQU x'0232% CPU ID Bes EXECUTE INPUT AND OUTPUT COMMANDS 
+ 
1031 COPY CK78IO O1IDECT6 1145+* PURPOSE 
1032 ** (T78IO) OTDECTO 1146+* 
1033 * 1147+ TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
1034 * EXECUTE INPUT & OUTPUT COMMANDS 1148+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
1035 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1149+ 
1036 * EACH OF THESF ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 1150+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
1037 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 11514+* THE I/O COMMAND. 
1038 * SUPVR CALL. 11524+* 2. SAVFS THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
1039 * é 1153+* ISSUED BY THIS SUBROUTINE. 
1040 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 1154+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
4041 * - 1155+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
1042 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTIVYG LOOP 1156+* YW. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 
1043 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 1157+* SINCE THE LAST EXPECTFD INTERPUPT. IF AN INTERPUPT IS FOUND, 
1044 * 3. LOOF ON ERROR, THE CALL MUST HAVE A "DC" STATEMENT AFTER 1158+ MYSTFRY INTERRUPT (at) CONTROL RIT IS SET. 
1045 * . THE CALL WITH’THE ADDRESS OF TRE RETRY STATEMENT 1159+ 5. MOVES THE ADDRESS OF THE I/0 CONTROL BLOCK IN R7 SET THE 
1046 * 4. CYCLE STEAL IN PROGRESS WITH AN FRROR 1160+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'sve TART!, 
1047 * 5. SOMETHING ELSE 1161+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/0 COMMAND. TIMING 
1048 * 1162+ STARTS TO DFTERMINE A LOST INTERRUPT. 
1049 * THIS RCUTINE HAS THE FOLLOWING ENTRIFS: 1163+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
1050 * a 1164+%* WAS AN ERROR OP OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
1051 * 1 BAL FRKEW, R6 FEAD SECTOR ID SKEWED 11654+%* 8. CHECK IF THFRE WAS A WRONG INTERRUPT LEVEL. 
1052 * 1166+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS FETURN. 
1053 * 2 BAL FWKST, RO WRITE SECTOR ID SKEWED (TEST) 116 7+% 10. CHECK IF THEPE WAS AN EPPOR CONDITION, IF NOT RETURN. 
1054 * ; 1168+* 11. CHECK TO SEE TF THE EXERCISER IS TO BE TERMINATED. 
1055 * 3 BAL SRWST,F6 FREAD SECTOR ID SKEWED (TEST) 1169+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
1056 * a | 1170+* ISSUED BY THIS SUBROUTINE. 
1057 * 4 BAL SRIDS,PG READ SECTOP ID (TEST) l 1171+* 13. CHECK THE ISB BRITS THAT ARE ON. IF BIT O IS ON, ISSUE 
1058 * iH 1172+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHEf BIT BEING ON, 
ae : 5 BAL SWKEW, R6 WRITE SECTOR ID SKEWED Te ae COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
1oo4 : 6 BAL SWSEC,R6 WPTTE SECTOP ID Ds CALLING SEQUENCE 
1063 7 BAL SWSTS ,R6 WRITE SECTOR ID (TEST BA a THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
ve + 
1065 * 8 BAL SDIAG,RE6 DIAGNOSTIC 1179+* --—> BAL xIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
1066 * - 1180+* --> BAL XToO1 MOD PARM PRELOADED IN 'tomopt 
1067 * 9 BAL XIOCS,F6 CYCLE STEAL STATUS 1181+* -—-> BAL XIOCS,P6 OR XEQ STAPT CYCLE STEAL STATUS, MOD=F 
1068 * c 1182+* --—> BAL XIOCS~4 ,P6 AUTO CS STATUS {ROLL OWTNG OTHER XIO 
aces : 10 BAL SSEEK ,P6 SEEK iat : AND DOES NOT POST INTERRUPT STATUS) 
ee : 11. BAL SRECL,R6 RECALIRRATE ee. RETURN CONTROL 
é + 
1073 * 12 BAL SPDID,P6 PFEAD SECTOR ID 1187+* BXS P6,2) RETURN TO USER NO ERROR 
1074 * . 1188+* OR B R6) * RETURN AND RETRY ON ERROR 
1075 * 13 BAL SRD,R6 READ SMEs e ttt tt St SS St SS STS SF STS SS TS TSS TESTS LE SS SS SPSS SSL ELS FS SS SS SSS SS SELES SSS SS SS 
1076 * 5 0029A8 CB25 2AAC 11914+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
pa : 14 BAL SRDVY,R6G READ VERIFY OO29AC SOOA Mey J XIo1 CS I/O'tS ARE NOT RETPIED 
1079 * 15 BAL BWRT,P6 WRITE OO29AF 4CAA 1194+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 
1080 * 0029BO 4cCé8 1195+ TBTS cS SET "CYCLE STEAL STATUS!" IN PFOGRESS 
1081 * 0029R2 4020 2AAA 27E6 1196+XIOCS MVA SDCE, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0028FO0 4020 2AAA 27D6 1082 $SEEK MVA SKDCB, IODCB SET UP CONTPOL BLOCK FOR SVC CALL 0029B8 4020 2AAC OOOF 1197+ MVWI X'O00F', TOMOD SET CYCLE STEAL MODIFIER 
0028F6 5058 1083 J X¥IO OO29BE 4C28 1198+ TRT R4&,cs) IS CS IN PROGRESS, EPROP CONDITION 
1084 x 0029C0 1213 1199+ JON To? * YES, BYPASS SAVING I/70 ADRS 
0028F8 4020 2AAK 2796 1085 $RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 0029C2 6EOD 2744 1200+XI0O1 MVW R6,LSTIO SAVE TAR FOR RETRY IF EQU ESTED 
NO28FE 5054 1086 J XIO 0029C6 4324 274E 1201+ MVA DCBUF,RB3 SET UP TO ADRS TO MOVE DCB TABLE 
1087 * OO29CA 6D08 2AAA 1202+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 
002900 4020 2AAA 2786 1088 $RDID MVA RSDCB, TODCB SET UP BLOCK FOR SVC CALL 0029CE OF10 1203+ MVBI 16,PR7 * THE NUMBER OF MOVES 
002996 OBFF 1089 MVBI X'FF! 7R3 SET BUFFER TO FtS 0029D0 2D64 1204+ MVFN (R5) {F3) MOVF 1 STATUS WORD AND ADJUST 
002908 4524 2746 1090 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADPS 0029D2 ORFF 1205+ MVRI 2558 CLEAR CYCLE STATUS BUFFER 
00290C 4724 0006 1091 MVWI 6,R7 SETUP BUFFER LENGTH 0029D4 4524 275E 1206+ MVA CSBOF,R5 * TO ALL ONES * 
002910 2BAC 1092 FFN R43 {B5) INIT READ SECTOR ID BUFFEP 0029D8 OF10 1207+ MVBI 16,R7 * 
002912 4020 27C4 2746 1093 MVA SCf D,PSDCB+14 DATA ADDR OO29DA 2BAC 1208+ FFN R3 RS) * 
002918 5047 1094 J xIO 0029DC 4020 2740 0708 1209+ MVWI x'6708 ,SLOIN OVERLAY OLD CONDITION CODES 
1095 * 0029E2 CB25 2742 1210+ MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
00291A 4020 2AAA 2816 1096 $RD MVA RDDCE, IODCB SET UP BLOCK FOR SVC CALL 1211+* 
002920 5043 1097 J XIO 0029E6 4CA1 1212+ TBTR R4,ER PESET ANY ERROP BEFORE I/O COMMAND 
1098 * O0029E8 4CA3 1213+XIO2 TBTP R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
002922 4020 2AAA 2806 1099 SRDVY MVA VRDCE, IODCB SET UP CONTROL BLOCK FOR SVt CALL OO29EA 4724 2AA6 1214+ MVA OBLK, #7 SET UP CONTROL BLOCK FOR SUPVR 
002928 503F 1100 J xIO COZ29EE 4CAG6 1215+ TBTR R4, $LE) RESET LEVEL ERROR INDICATOR 
1101 * 0029FO0 4C62 1216+ TBTS PY ,XT SET EXPECTED INTR CONTROL BIT 
00292A 4020 2AAA 27F6 1102 $WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOP SVC CALL O0029F2 600A 1217+ SVC TART CALL SUPVRP FOR T/0 COMMAND 
002930 503B 1103 J XIO 1218+* 
1104 * OO29F4 4CAT 1219+ TBTR jeoe at) TS AN INTR EXPECTED 
002932 4020 2AAA 2836 1105 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL O029F6 6AC0O 0002 12204 BN R6,2) * NO, RETURN TO USER 
002938 4020 2844 2746 1106 MVA SCTID, PKDCB+14 DATA ADDR 1221+* 
00293E 5034 pe ‘i J XxIO oe THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
002940 4020 2AAA 2826 1109 SWKST MVA WKDCP,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO29FA 0ODO0O 1224+ MVRBI ee x? SET UP WORK REG FOR *LOST INTR 
002946 4020 2834 2858 1110 MVA WSIDT, WKDCB4+14 DATA ADDR O0O029FC 4CA3 1225+XIO8 TBTR (Ru Th HAS INTERRUPT BEEN RECEIVED 
00294C 502D 1111 J XIO OO29FE 1238 1226+ JON ToCk * YES, CHECK IF ALL WAS SATISFACTORY 
1112 * 002A00 6002 1227+ SVC IDLE ALLOW ANOTHFR PROGRAM A CHANCE TO RUN 
00294E 4020 2AAA 2836 1113 SRWST MVA KKDCE, IODCB SET UP CONTROL BLOCK FOP SVC CALL 1228+* SUPVR WILL RETURN HERE 
002954 4020 2844 285E 1114 MVA SCTST, PKDCR+14 DATA ADDR 0O2A02 7DA1 0001 1229+ AWI 1,R5 ADVANCF TIMF OUT COUNT 
00295A 5026 1115 J XIO 0OO2A06 18FA 1230+ JINZ X {08 BCH TF TIME OUT NOT REACHED 
1116 * OO2A08 4C61 1231+ TBTS (R4,EF) SET ON ERROR CONTROL BIT 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1975 
OO2A0A 68D2 0000 1232+ B ERR 'NO INTERRUPT! 002A54 1349+INTR2 ZOU * IL 
1234+* Suse ees Pee OEE EE SSE OE EL Ee OMT EE EEE eT nr eT: 1350+* CBCL RS CURRENT LEVEL COPIED BY DCP TL 
1235+ 002A54 3521 1351+ SLL 4,R5 POSITION INTR LEVEL AND PUT TL 
1236+* SUBROUTINE 002A56 0501 1352+ ABI 1,R5 * IN *I* BIT TL 
123 7+* 002A58 CD24 2774 1353+ CW $INTL,R5 IS THIS THE COPRECT INTR LEVEL TL 
1238+% I/O EXECUTE ERROR HANDLING ROUTINE 002A5C 1002 1354+ JE INTR3 * YES, GO EXIT THIS LEVEL LL 
1239+* OO2A5E 4C66 1355+ TBTS R4,$LE) SET IhtR LEVEL ERROR CONTROL BIT IL 
12404+* PURPOSE Q002A60 4C61 1356+ TBIS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
1241+* OO2A62 4CA2 135 7+INTR3 TBTR R4,XI WAS INTERRUPT EXPECTED TL 
1247+ THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE OO2A64 1204 1358+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL TL 
1243+4+* PROBLEM THAT WAS FOUND WHEN THE T/O COMMAND WAS ISSUED BY THE 002A66 4C60 1359+ TBTS ARE MT) * NO, SET MYSTERY INTR CONTROL BIT TL 
1244+* SUPERVISOR AND IT WAS NOT ACCEPTED. 002A68 F304 1360+ CBI ,R3 ATTENTION INTFPRUPT? IL 
1245+* OO2A6A 1001 1361+ JE INTRX YES TL 
1246+* CALLING SEQUENCE OO2A6C 4CE6C 1362+ TBTS aS NG) ERROR,UNEXPECTED INTERRUPT bee 
1247+ OO2A6E 6006 1363+INTRX SVC th EXIT THIS LEVEL VIA SUPVR TO PGM _ IL 
aeices SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 136 54 OA IOI IO GIG ROR SOIR I II IR IC CKO 3P EBT 6 #* 
+* 1366+* 
1250+* RETURN CONTROL 1367+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTEFPRUPT 
12514 1368+% HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
1252+4 B (R6) * RETUPN TO USERS ERROR HANDLER 136948 RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ + 
12.50 IO IG III IOI IGOR GIGI IGG I aI IO aI ICI I aki ak aka ak ake 1371+* 
1255+ 002A70 4CA4 13724+XIOCK TBTR R4, XE) WAS AN ee EXP ECTED 
125€+* CC O= DEVICE NOT ATTACHED 002A72 6ACO 0002 1373+ BN R6, d * YES THIS ROUTINE 
1257+* FOR 1= DEVICE BUSY OO2A76 4CA8 1374+ TBTR R4,CS) WAS SGro* tS IN PROGPESS 
1258+* T/0 2= DFVICE BUSY AFTER RESET 002A78 1006 1375+ JOFF ToEV * NO, CONTINOE CHECKING 
1259+%* 3= COMMAND REJECT OO2A7A 4C2A 1376+ TBTr R4 ,CE) IS c§ IN AN ERR CONDITION 
1260+* Y= INTERVENTION REQUIRED QOO2A7C 1002 1377+ JOFF Toco * NO, BCH 
1261+* 5= INTERFACE DATA CHECK OO2ZA7E 68D2 0000 1378+ B R6) * cS ERROR 
1262+ * 6= CONTROLLER BUSY OO2A82 4C69 1379+XIOcO TBIS R4,CSA) TURN ON CS STATS AVAIL FLAG 
1263+* T= 1/0 COMMAND EXCEPTED OO2A84 5601 1380+ BXS era GO TO USER 
12644+* OO2A86 4C21 138T4+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 
OO2ZAO0F T706E 1265+XIOEP DC X'706E! COPY STATUS ANY LEVEL INTO R3 002A88 100B 1382+ JOFF xtocyx * NO, EXIT THIS ROUTINE 
002A10 336A 1266+ SRL 13,P3 POSITION CC CODE TO BITS 13-15 1383+* 
002A12 C328 2740 1267+ MVB R3,SI10IN * PUT IN LOG OUT AREA OO2A8A C520 2741 1384+ MVB See R5 GET LAST INTP CC CODE 
002A16h 68D2 0000 1268+ B (R6) * RETURN TO USER ERROR HANDLER OO2ZA8E F502 1385+ CBI IS THIS CC=2 
12.704 ICICI i i ii loi ak doi dei igiagidokoiakcicicaok tok 7 2A PR 76 x 002190 68D1 0000 1336+ BNE at * NO. BCH TO ERROR HANDLER 
1271+% IL 002494 C520 2742 1387+XIOCQ MVB (s RS GET LAST ISB DATA BYTE AND IF CS 
1272+* SUB-ROUTINE IL 002498 6A00 29AE 1388+ BN Loch * AVAILABLE, GO AND GET 
1273+* TL QO2A9C 68D2 0000 1389+ B A Bas ERROR 
T2744+%* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL "'SINTL! IL OO2AAO0 CB25 273C 1390+XIOCX MVWZ dpe 3,R3 CLEAR OUT OPTION 3 CNTL BITS 
1275+% It, OO2ZAA4 5601 1391+ BXS  (R6,25 RETUPN TO USER VIA REG 6 
1276+* PURPOSE iL 1392+* 
1277+% IL 1393+* I/o PARAMETER LIST 
1278+* THTS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 13944+* 
1279+% OR THE INTERRUPTING CONDITION CODE DOES NOT AGPEE WITH THE IL OO2AA6 19D0 1395+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1280+ EXPECTED CODE. IL OO2AA8 2A0F 1396+ DC A (XTOER) ERROR ROUTINE ADRS 
1281+* Th OO2AAR 0000 1397+I0DCB DC A (¥-* DCB ADRS OR LEVEL & INTR 
1282+* CALLING SEQUENCE IL O0O2AAC 0000 1398+TOMOD DC A (*-%* MODIFIEP 
1283+* IL OOZAAE 0000 1399+ DC A (#—* ADRS OF LAST SVC CALL 
12048 SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 002AB0 0000 14004+TORSP DC Rh (k-% SECOND WORD OF LAST IDCB 
+ + 
1286+% RETURN CONTROL IT 140244 INTEPRUPT CONTROL BLOCK FOP I/O COMMANDS 
+ , + 
1288+%* svc EXIT RETURN TO USER VIA SUPVR TL | OO2AB2 19D0 THO4U4INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
1289+ IL OO2AB4 2A3E 1405+ DC A (INTOK INTERRUPT OK RETURN ADRS 
12.9.0 +O ISI GIGI I Ca gakak ak dk kak dei tek ak tT OO2AB6 2ATA 1H06+ DC A (INTER INTERRUPT ERROR ADRS 
1291+* TL OO2AB8 0003 THO74INTCC DC Xx'0003'! INTERRUPT CODE EXPECTED 
1292+* CC O= CONTROLLER END ISB. O= ADD STATUS TE 110.0 94 IO IO IOC IOI IG IR IG OIC RG a I gk Fok ak ttt tor 1 MAY 76 #* 
1293+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 1410+* 
1294+%* INTP 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH TIL 1411+* SUBROUTINE 
1295+%* 3= DEVICE END INTEPRUPT INTR = DCB SPEC CK IL 14124* 
1296+%* G= ATTENTION INTERRUPT = STG DATA CK TL 1413+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
1297+%* 5= ATTENTION / PEOGRAM CNTL INTR = INV STG ADPS IL 14144* 
1298+%* €= ATTENTION / EXCEPTION INTR = DPOTRCT CK TL 14154+* PURPOSE 
12994+% 7J= ATTENTION / DEVICE END TNTR = I-FACE DATA TL 1416+* 
1300+* TL T4174+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
OO2A14 TO6E 1301+INTER DC X'7O6E! COPY STATUS ANY LEVEL INTO B3 IL 14184+% PREPARE ON THE DESTRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
OO2A1C 336A 1302+ SRL 13,3 POSITION INDICATORS IN R3 IL 1419+* TO INTEPRUPT. 
OO2A1E 4424 2738 1303+ MVA OPTN1,R4 SET UP BASE ADPS TL 1420+* 
QOO2A22 4C28 1304+ TEL (R4,CS) IS CS IN PROGRESS da 1421+* CALLING SEQUENCE 
Q002A24 1006 1305+ JOFF INTES * NO TL 14224+% 
QOO2A26 4CEA 1306+ LoS (RY cet TURN ON CYCLE STEAL INTER ERFPOR TL 1423+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
O02A28 6FOD 276C 1307+ MVW P7,CST 8 SAVE CS ERP ISB VALUE, BITS O-7 TL T4244+* 
002A2C C328 27AD 1308+ MVB R3,,CSTLE+1 * AND THE COND CODE IL 14254+* --> BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
002A30 500A 1309+ J INTR I TL 1426+* --> BAL SCONP, *R6 PREPARE DEVICE ONLY, ALPEADY CONNECT 
OO02A32 4C24u 1310+INTES TBT AT eae) TEST EXPECTED ATTEN / ERROR IND IL 1427+%* 
OO2A34 1002 1371+ JOFF NTET BCH IF NOT EXPECTED hie 1428+* RETURN CONTROL 
002A36 F304 1312+ CBI 4 ,PR3 IS THIS AN ‘ATTENTION! INTPR TL 1429+4+* 
002438 1006 1313+ JE INTR1 * YES, BCH TO END INTR SEQUENCE TL 1430+* BXS P6,2) RETURN TO USER VIA REG 6 IF OKAY 
OO2A3A 4C61 TZT4+INTET TBTS CE ae SET ERROR OW T/O COMMAND CNTL BIT IL 1431+* OR B R6{ * IF TRE DEVICE COULD NOT BE CONNECTED 
OO2A3C 5904 1315+ J NTP 1 IL 1432+% 
13164% THE ERROR INTERRUPT USES THE SAME IL 1 03 3-46 III IOI IG OIG III I RGR ICR aC aC aR CA aK akc ak akc a a aK ak 
1317+%* ENDING SEQUENCE AS THE NORMAL INTR II OO2ABA OFO6 1434+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
12371 04 RIGO IG GR OR ici ok ikdocctokgoatek TOA PRI6TL OO2ABC ORBOO 14354 MVBI R3 * AND THE DATA TO USE 
1320+%* B ie OO2ZABF 4524 2746 1436+ MV A DEVI R5 * ALONG WITH THE ADFS TO USE 
1321+* SOUBROUTINE IL OO2AC2 2BAC 1437+ FFN R3 (25) * 
1322+* TL OO2AC4H CB25 273C 1438+ MVWZ opt Seno CLEAR OLD CONTROLS FOF NEW FOUTINE 
1323+* OKAY INTEFRPUPT RUNS ON INTERRUPT LEVEL 'S1INTL! rG 002AC8 4724 2AB2 1439+ MVA INTBL,F7 SET P7 TO CONTROL BIOCK AND 
13244 Ads OO2ACC 6014 1440+ SVC CICB * CONNECT IT TO THIS DEVICE 
ioe PURPOSE a OO2ACE 6AD0 0000 bla BN (R6) * ERROR RETURN TO USER 
+ + 
1327+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL OO2AD2 8828 2774 2AAA 14U34+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
132 8+* TL OO2AD8 4724 2AR6 1444+ MVA TOBLK,F7 SET R7 TO CONTROL BLOCK TO PREPARE 
1229+* CALLING SEQUENCE IL OO2ADC 4020 2740 0708 1445+ MVWI X'0708', SIOIN INITIALIZE CONDITION CODE STORAGE 
1330+* IL OO2AE2 CB25 2742 TW46+ MVWZ S$ISB,R3 * AND CLEAR OLD ISB VALUE 
1331+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL OO2AF6 6EOD 2744 1407+ MVW R6,1§TIO SET UP ADDRESS THAT STARTED LAST I/0 
1332+%* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL OO2ZAEFA 600C 1448+ SVC PPEP * AND CALL ON SUPVRER 
1333+* AFTEP THE SPECIAL PART HAS BEEN COMPLETED AND THE IL OO2AEC 5601 1449+ BXS (R6 ,2) RETURN TO USER 
133U4+% COMMON SECTION ITS HANDLED HERE. IL 105 142 GR OIG OGG IGG iiak dag kak ak dota 6 APR 7 6 x 
1335+* IL 1452+* 
1336+* PETURN CONTROL nD fe 1453+* SUBROUTINE 
1537+ TL 1454+ 
Ue sVC EXT RETURN TO USER VIA SUPVF et trees DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
339+ i + 
13.00 3G RG GG gga tokio adic dese att FT 1457+* PURPOSE 
QOO2A3E T7O6E T3Z414+INTOK DC X'*7O6E* COPY STATUS ANY LEVFL INTO R3 IL 1458+* 
OO2ZA40 336A 1242+ SRL 35 RS POSITION INDICATORS IN R3 mae 1459+*%* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
OO2A42 4424 2738 1343+ MVA OPTN1, 4 SET UP BASE ADRS Lb 1460+* SET THE 'NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
QOO2A46 4C63 13444INTRI TRTS Bum) SET INTERRUPT RECEIVED IL 14614+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
OOPA4U8 4C28 13454 TBT R4Y,CS Is 'CS IN PROGPESS!*! ON IL 1HO2+* 
OO2ZA4A 1204 1346+ JON wrh2 * YES, BCH AROUND UPDATE Bap 1463+* CALLING SEQUENCE 
OO2A4C C328 2741 4347+ MVB R3,S5I0IN+1 SAVE INTERRUPTING CC CODE TL 14644+% 
002A50 6FOD 2742 1348+ MVW F7/oLSh SAVE INTR STATUS AND DEV ADRS TL 1465+ THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
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17823 <--- CLOCK/4962 P/N=1635405 EC=755285 PAGE 13 17823 -<- CLOCK/4962 P/N=1635405 EC=755285 PAGE 134A 
CROSS-REFERENCE LISTING COPYRIGHT IBM COP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM COQ’ P 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
1489 1492 1480 1532 
629 NG ABSOLUTE. HEX VALUE(0000002C) 678 T3C02 ADDRESS. HEX LOCATION(0000277E) IN CSECT(I7823  ) LENGTH (6) 
a 
| ee ABSOLUTE, HE He Bou 2017) 2238, 1745 T77A JADDRESS. HEX LOCATION(OOO02EB4) IN CSECT(I7823 ) LENGTH (6) 
2 18 2256 2450 
387 100001 ADDRESS» HEX LOCATION (00002558) IN CSECT(I7823  ) LENGTH(2) 1752 T77B ABDRESS. HEX LOCATION(O0002ED4) IN CSECT(I7823  ) LENGTH (4) 
399 N00002 ADDRESS. HEX LOCATION (0000256A) IN CSECT(I7823 ) LENGTH (2) 1738 T77C anERREss. HEX LOCATION(QO002EA0) IN CSECT(I7823  ) LENGTH (4) 
414 400003 ADDRESS. HEX LOCATION(0000257C) IN CSECT(I7823  ) LENGTH (2) 1664 T77CC A HEX LOCATION(00002D96) IN CSECT(I7823 ) LENGTH (4) 
414 N00004 ADDRESS. HEX LOCATION (00002580) IN CSECT(I7823  ) LENGTH{2) 1631 [77D LBBRESS. HEX LOCATION(00002D3C) IN CSECT(I7823  ) LENGTH (4) 
417 N00005 ADDRESS. HEX LOCATION (00002584) IN CSECT(I7823  ) LENGTH(2) 1658 T77E ee eat PY pate re IN CSECT(I7823 ) LENGTH (6) 
429 N00006 ADDRESS. HEX LOCATION (00002596) IN CSECT(I7823  ) LENGTH(2) 1734 T77EE qeoe ee HEX LOCATION(00002E92) IN CSECT(I7823 ) LENGTH (4) 
444 007 a 1654 T77ER ADDRESS. HEX LOCATION(00002D7E) IN CSECT (17823 LENGTH (6 
fe guns i Ga eee es ree 180) 1582) 4585 teag 1601 teas) edn iene tengo 
@ Cc Cc te ONG 
336 430 iets asia dachias pene Tne) 4718 1723 1727 1736 1741 1747 
447 100009 ADDRESS, HEX LOCATION (000025B0) IN CSECT(I7823  ) LENGTH(2) 16 36 T77F groeeess: HEX LOCATION(00002D46) IN CSECT(I7823 ) LENGTH (2) 
459 N00010 ADDRESS. HEX LOCATION(000025C2) IN CSECT(I7823  ) LENGTH (2) 1737 T77FF poe rena LOCATION (Q0002E9C) IN CSECT(I7823  ) LENGTH (4) 
471 N00011 ADDRESS. HEX LOCATION (000025D4) IN CSECT(I7823  ) LENGTH (2) 1721 T77G ARDRESS. HEX LOCATION(O00002E5E) IN CSECT(I7823 ) LENGTH(6) 
47 H00012 ADDRESS, HEX LOCATION (000025D8) IN CSECT(I7823  ) LENGTH (2) 1602 T77H  LDBRESS. HEX LOCATION(00002CC2) IN CSECT(I7823 ) LENGTH (6) 
477 w00013 ADDRESS. HEX LOCATION (000025DC) IN CSECT(I7823  ) LENGTH (2) 1729 {7 7HH ADDRESS. HEX LOCATION(00002E7E) IN CSECT(I7823  ) LENGTH (6) 
489 N00014 ADDRESS. HEX LOCATION (000025EE) IN CSECT(I7823  ) LENGTH(2) 1656 T77I  BDDRESS. HEX LOCATION (00002D86) IN CSECT(I7823 ) LENGTH(4) 
501 N00015 ADDRESS. HEX LOCATION (00002600) IN CSECT(I7823  ) LENGTH (2} 1762 T77I ADDRESS. HEX LOCATION (OOOO2EFA) IN CSECT(I7823 )} LENGTH (2) 
504 N00016 ADDRESS. HEX LOCATION (00002604) IN CSECT(I7823  ) LENGTH(2) 1733 T779I ADBRESS. HEX LOCATION(Q00002E8E) IN CSECT(I7823  ) LENGTH(4) 
507 N00017 ADDRESS. HEX LOCATION (00002608) IN CSECT(I7823  ) LENGTH (2) 1703 T771L ae ie LOCATION(QOOO2F1C) IN CSECT(I7823 ) LENGTH(4) 
519 N00018 ADDRESS. HEX LOCATION(0000261A) IN CSECT(I7823  ) LENGTH(2) 1706 T77LL san HEX LOCATION (00002E28) IN CSECT(I7823 ) LENGTH (2) 
531 N00019 ADDRESS. HEX LOCATION (0000262C) IN CSECT(I7823  ) LENGTH (2) 1672 T77M ,BDBRESS. HEX LOCATION(00002DB2) IN CSECT(I7823 ) LENGTH (4) 
534 N00020 - ADDRESS, HEX LOCATION (00002630) IN CSECT(I7823  ) LENGTH(2) 1674 T77N jBDBRESS. HEX LOCATION(00002DB8) IN CSECT(I7823  ) LENGTH(4) 
5 37 N00021 ADDRESS» HEX LOCATION (00002634) IN CSECT(I7823  ) LENGTH (2) 1693 T77R ABBRESS- HEX LOCATION(O0002DFC) IN CSECT(I7823 ) LENGTH(4) 
57 ON ABSOLUTE. HEX VALUE (00000200) 1768 T77RE BDBRESS: HEX LOCATION (00002F04) IN CSECT(I7823 ) LENGTH (2) 
582 OPTN1 ABBRESS; HEX LOCATION (00002738 Pe CSECT (17823 ) LENGTH (2) 1756 T77RR ABPRESS. HEX LOCATION(QOOO2EE4) IN CSECT(I7823 ) LENGTH (6) 
| 605 OPTN3 jRDDRESS. HEX LOCATION (0000273C) IN CSECT(I7823  ) LENGTH(2) 1609 [77S jADBRESS- HEX LOCATION(00002CE0) IN CSECT(I7823. ) LENGTH (6) 
101 PARMARA ADDRESS. HEX LOCATION (0000196) IN CSECT(I7823 _) LENGTH (1) 1740 T77SS ADDRESS. HEX LOCATION (O0002EA4) IN CSECT(I7823  ) LENGTH(4) 
397) «©4409 «64270 439°) O57 69 487 499 517 1632 1679 1683 1711 19 1724 (1728 
529 1773 T77ST ADDRESS. HEX LOCATION(0000300A) IN CSECT(I7823  ) LENGTH (1) 
69 PID ADDRESS. HEX LOCATION(00001800) IN CSECT (17823 LENGTH (1) 1583 
71 72 73 74 75 76 77 78 9 1686 T77T ADDRESS. HEX LOCATION(00002DE6) IN CSECT(I7823 ) LENGTH (4) 
80 84 82 83 84 85 86 87 88 1668 1692 1696 1701 
89 90 91 92 93 94 95 96 97 1767 T77TP ADDRESS. HEX LOCATION(00002F00) IN CSECT(I7823  ) LENGTH(2) 
98 99 100 101 102 103 .104 105 #106 1745 1756 1757 1758 
107 108 109 110 111 4112 1493 1766 T770 ADDRESS. HEX LOCATION (00002EFC IN CSECT(I7823. ) LENGTH(2) 
1525 PIDNSG10 ABSOLUTE. HEX VALUE(OOOOFIFO) | 1584 1585 1647 1648 17650 1753 17 1756 
1493 1698 T77V ADDRESS. HEX LOCATION(00002E0C) IN CSECT(I7823 ) LENGTH (4) 
699 PREP ABSOLUTE. HEX VALUE(0000000C) 1702 
1448 1660 T77X ADDRESS. HEX LOCATION(00002D92) IN CSECT(I7823  ) LENGTH (4) 
1021 RDATA ADDRESS. HEX LOCATION (000028E2) IN CSECT(I7823 ) LENGTH (2) 1652. 1655 
1748 1749 1751 1752 1955 1956 1958 °1959 2133 1770 T77XR ADDRESS. HEX LOCATION(00002F08) IN CSECT(I7823 ) LENGTH (2) 
2134 2136 2137 2325 2326 2328 2329 2520 2521 1641 
2523 2524 1952 T78A ADDRESS. HEX LOCATION(000031A6) IN CSECT(I7823  ) LENGTH (6) 
1019 RDATAO ADDRESS. HEX LOCATION (000028DE) IN CSECT (17823 , LENGTH (2) 1950 
708 1745 1951 1952 2129 2130 2321 2322 2516 1959 T78B BBBRESS. HEX LOCATION(000031C6) IN CSECT(I7823  ) LENGTH(4) 
1771 RDBUF  ABDRESS. HEX LOCATION (O0002FOA) IN CSECT(I7823  ) LENGTH (2) 1945 T78C ARBRESS. HEX LOCATION(00003192) IN CSECT(I7823  ) LENGTH(4) 
887 RDDCB ADDRESS. HEX LOCATION (00002816) IN CSECT (17823 LENGTH (2 1938 T78CC ADDRESS. HEX LOCATION(00003178) IN CSECT(I7823 LENGTH (4 
sos reser Wendt! adf@eantecgoodgaiey 22 cis an Suse Geer eee: Gana 
: ; NGT 
3083 Mae lene $31 eter Geen, ware, aoe 1932 T78E ‘ADDRESS HEX Shea a ania IN eee anh eee 
706  RICB ABSOLUTE. HEX VALUE (00000013) 1916. 19231995 ( , eee “ 
1502 1928 T78ER ADDRESS, HEX Sie EICARB LE IN CSECT (17923 } LENGTH (6) 
909 RKDCB ADDRESS. HEX LOCATION (00002836) IN CSECT(I7823  ) LENGTH (2) 1855 1867 1871 18 80 1883 1986 18 
1105 1106 1113 1114 1892. 1897 1901 1914 1918 1920 1943 195 
819 RSDCB jADDRESS. HEX, LOCATION (00002786) IN CSECT(I7823  )} LENGTH(2) 1910 T78F jBDBRESS- HEX LOCATION (00003128) IN CSeCT (17833 ) LENGTH (2) 
645 SCTID 628" "836" 916-1080 9093. “405. CSECT(I7823 ) LENGTH(2) 1877 T78H jABBRESS- HEX LOCATION(000030B0) IN CSECT(I7823 ) LENGTH(6) 
931 scTst jRDDRESS, HEX LOCATION (000028 5E) IN CSECT(I7823 ) LENGTH(2) 1930 T78I ADDRESS. HEX LOCATION(00003168) IN CSECT(I7823  ) LENGTH (4) 
1006 SENSO ARBRESS, HEX LOCATION (090028 BA) IN CSECT(I7823  ) LENGTH(4) 1969 T78I BDDRESS- HEX LOCATION(000031EC) IN CSECT(I7823  ) LENGTH(2) 
1000 SENS 1 jADDRESS. HEX LOCATION (000028 A6) IN CSECT(I7823  ) LENGTH(4) 1975 T78RE ADBRESS; HEX LOCATION(000031F6) IN CSECT(I7823  ) LENGTH(2) 
843 SKDCB ABDRESS, HEX LOCATION (00002706) IN CSECT(I7823  ) LENGTH (2) 1963 T78RR ADDRESS. HEX LOCATION(000031D6) IN CSECT(I7823  ) LENGTH (6) 
697 START {RBSOLUTE. HEX VALUE (00000008) 1884 T78S ADDRESS. HEX LOCATION(000030CE) IN CSECT(I7623  ) LENGTH (6) 
104 SUPSTAT ADDRESS. HEX LOCATION(000019C4) IN CSECT(I7823 ) LENGTH(1) 1947 T78SS BBDRESS. HEX LOCATION(00003196) IN CSECT(I7823  ) LENGTH(4) 
92 TUMSGWTR ADDRESS. HEX LOCATION(O00018BA) IN CSECT(I7823 ) LENGTH(1) 1979 T78ST ABBRESS. HEX LOCATION(000031FC) IN CSECT(I7823 ) LENGTH¢1) 
98 TURESUL ADDRESS. HEX LOCATION (000018C8) IN CSECT (17823 LENGTH (1 1974 T78TP ADDRESS. X LOCATION(000031F2) IN CSECT(I7823 LENGTH (2 
1586 1589 1654 1658 | 1861 1864 1928 (7335 2040 mm 1952 1963 1 ¢ aes y EENGT ECE) 
2043 2106 2110 2219 2222 2285 2289 2413 2416 1973 T78U ADDRESS. HEX LOCATION(000031EE) IN CSECT(I7823  ) LENGTH (2) 
2480 2484 1859 1860 1921 1962 1963 
669 TURIN BRBRESS: HEX LOCATION (00002776) IN CSECT(I7823 ) LENGTH(2) 1934 T78X ADDRESS. HEX LOCATION(00003174) IN CSECT(I7823  ) LENGTH(4) 
74 TUSTATUS jABDRESS- HEX LOCATION(00001818) IN CSECT(I7823 ) LENGTH (1) 1977 T78XR BDBRESS. HEX LOCATION(000031FA) IN CSECT(I7823 ) LENGTH(2) 
75 TUWORK ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7823  ) LENGTH(1) 1576 T7877 ADDRESS. HFX LOCATION(00002C5E) IN CSECT(I7823 ) LENGTH(4) 
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389 2273 2280 2282 
1851 77878 hegueess HEX LOCATION(O000308C) IN CSECT(I7823 ) LENGTH (4) 2311 T81EE sano » HEX LOCATION (00003514) IN CSECT(I7823 ) LENGTH (4) 
030 3 2285 T81ER ADDRESS. HEX LOCATION Coeea ce aa" CSECT (17823 LENGTH (6 
203 T7879 ADD LOCATION (00003204) IN CSECT(I7823 ) LENGTH (4) oh RBRESS. HEX LO zrgNe OO83 S359 (Tehe \, (6) 
2403 T7880 ADD LOCATION (0000359A) IN CSECT(I7823  ) LENGTH(4) 2200 2255 2258 2271 2275 3339 3307 3343 333 
2209 77881 AOR LOCATION(0000333B8) IN CSECT(I7823 ) LENGTH (4) 2267 T81F op HEX LOCATION(QOQOQO348E) IN CSECT(I7823 ) LENGTH (2) 
2130 T79A ADP LOCALTON (00003358) IN CSECT(I7823 ) LENGTH (6) 2314 TS1FF Bt aa deke HEX LOCATION(OO000351E) IN CSECT (I7823 ) LENGTH (4) 
2137 T79B ADD LOCATION (00003378) IN CSECT(I7823 ) LENGTH (4) 2235 T81H sae HEX LOCATION (0000341C) IN CSECT (17823 ) LENGTH (6) 
2123 T79C ADD LOCATION (000033484) IN CSECT (17823 ) LENGTH (4) 2287 T8 11 Deeg HEX LOCATION (OOOO034CE) IN CSECT (I7823 ) LENGTH (4) 
2116 T79CC 433 LOCATION (0000332A) IN CSECT(I7823 ) LENGTH (4) 2339 T81d ase HEX LOCATION(0000357C) IN CSECT(I7823 ) LENGTH (2) 
2083 T79D ace LOCATION (000032D0) IN CSECT(I7823 ) LENGTH (4) 2301 T8381 aon HEX LOCATION (OO0034F2) IN CSECT(I7823 ) LENGTH (4) 
2110 T79E ABP A aaa cad eh IN CSECT (I7823 ) LENGTH (6) 2303 - TB41N saan HEX LOCATION(QO0O0034F8) IN CSECT(I7823 ) LENGTH (4) 
2106 T79ER ADD LOCATION (00003312) IN CSECT ey hee? ) LENGTH (6) 2345 T81RE ADDRESS. HEX LOCATION (00003586) IN CSECT(1I7823 ) LENGTH (2) 
034 50 2052 2055 2059 3062 ‘2065 206 2279. 2281 
sau anes O74 79 2082 2098, 2098 2121, 2136 ee 2333 T81RR DADDRESS. HEX LOCATION (00003566) IN CSECT(I7823 ) LENGTH (6) 
2056 79H AnD spe te weene IW cea ieee 7 aa ae ee ete ee ee ee ee eee 
054 { ) ( ) (6) 2317 T81SS ADDRESS. HEX LOCATION (00003526) IN CSECT(I7823 ) LENGTH (4) 
2108 7792 ADD LOCATION (0000331A) IN CSECT(I7823. ) LENGTH(4) 2263. 2308 
eats as 089 SS ee eee ees er ee Seca 2349 81ST SADBRESS. HEX LOCATION (0000358C) IN CSECT(I7823 ) LENGTH (1) 
53 store ABB yocasroH (00003348) IH CSECR(a7e23) LENORN(a zoun matey ARENFGS, PPA ERCAREG (O00ORSED) Tx csReE(r7e25 ) uaNaEH (7 
100 ( ( ) chiaiaia 2343 T8110 ADDRESS. HEX LOCATION (OOOOaP TE a0" CSECT (17823 ) LENGTH (2) 
2141 TT7ORR ADDR LOCATION (00003388) IN CSECT(I7823  ) LENGTH(6) 2217. 2218 2278. 2279 2281 3 
2063 T79S 13D LOCATION (00003286) IN CSECT(I7823 LENGTH (6 eee acne 283° 33B6. LOCATION (00003uD;} nn iain oeahaed ac auniaea es 
073 ( ) ( an (©) 2347 T81XR ADDRESS. HEX LOCATION (0000358A) IN CSECT(I7823 ) LENGTH (2) 
2125 T79SS ADD LOCATION (00003348) IN CSECT(I7823  ) LENGTH(4) 2272 
084 876 VRDCB ADDRESS. HEX LOCATION (00002806) IN CSECT(I7823 ) LENGTH (2) 
2157 T79ST ADD LOCATION (000033AE) IN CSECT(I7823  ) LENGTH(1) 1099 
037 898 WKDCB ADDRESS. HEX LOCATION (00002826) IN CSECT(I7823  ) LENGTH(2) 
2152 = - T79TP ADD LOCATION (000033A4) IN CSECT(I7823  ) LENGTH(2) 1109. 1110. 1125. 1126 
130 42 43 865 WRDCB ADDRESS. HEX LOCATION (000027F6) IN CSECT(I7823  ) LENGTH(2) 
2151 T790 ADD LOCATION (00003340) IN CSECT(I7823 ) LENGTH (2) 1102 
038 099 21 Pe 925 WRSID ADDRESS. HEX LOCATION (00002852) IN CSECT(I7823 ) LENGTH (2) 
2112 «179K ADD LOCATION (00003326) IN CSECT(I7823  ) LENGTH(4) 816.905.1126 1130 
104 809 WSDCB ADDRESS. HEX LOCATION(Q000027A6) IN CSECT(1I7823 ) LENGTH (2) 
2155 T79XR ADD LOCATION (OOOO33AC) IN CSECT(I7823 ) LENGTH (2) 17129 1130 1132 1133 
2517 TAOA oe LOCKETON (0000S 720) Su"CenCniT7 003 <opeme 928 WSIDT TARR ESSs HEX LOCATION (00002858) IN CSECT(I7823 ) LENGTH (2) 
2524 T80B te Sea haewecee IN eta | cea sl a Wie i302 pee Teron venue 
10 meoc 488 yocatrow(0000370c) TH csece(r7e23 |) veNeTn(t 619 ARESEYEEG PHESTA“TEL8°008092) 2236 uo 
490 ( ) ( (4) 1191 XTO ADDRESS. HEX ot hbee Cr ae AY ee IN CSECT (17823 ) LENGTH (4) ; 
2490  T80CC ADD LOCATION (000036C6) IN CSECT(I7823  ) LENGTH(4) 1083" 1086 1084 1097) 1100 1103 Ti07 1117111 
2457 T80D ADD LOCATION(0000366C) IN CSECT(I7823  ) LENGTH(4) 1372 XIOCK jADDRESS. HEX LOCATION (00002A70) IN CSECT(I7823  ) LENGTH(2) 
2484 T80E ADD POCRTTONONO0s ERC) IN CSECT(I7823 ) LENGTH (6) 1379 XITOCO aa HEX LOCATION (00002482) IN CSECT (17823 ) LENGTH (2) 
2506 TBOEE ADP LOCATION (QOOO36FE) IN CSECT(I7823 ) LENGTH (4) 1196 XIOCS 1388" Yous 9172085 2274 2 658 CSECT (I7823 ) LENGTH (6) 
2480 TS8OER ADD pe Qc ASTON (080036 a2) aN coger (27825 i LENGTH (6) 1381 XITOCV BbBRe SS. HEX LOCATION (00002A86) N CSECT (I7823 ) LENGTH (2) 
aaa 453 2466 2470 2472 2502 2508 1 1390 XTOCX Gane HEX LOCATION (QOOO2AA0) IN CSECT(I7823 ) LENGTH (4) 
2462 T80F ADD LOCATION (00003676) IN CSECT(I7823 ) LENGTH (2) 1265 XIOER ao000 HEX LOCATION(OQOQOO2A0E) IN CSECT(I7823 ) LENGTH (2) 
2509 TSOFF ABD LOCATION (00003708) IN CSECT(I7823 ) LENGTH (4) 1200 XTO1 455° 00°" HEX LOCATION (000029C2) IN CSECT (I7823 ) LENGTH (4) 
2429 T80H ADD LOCATION (QOOQO35FE) IN CSECT(I7823 ) LENGTH (6) 1213 XTO2 vos HEX LOCATION (000029E8) IN CSECT(I7823 ) LENGTH (2) 
2482  T80T SADDRESS. HEX LOCATION (00003686) IN CSECT(I7823 ) LENGTH (4) 1225  xro8 ,ABDRESS. HEX LOCATION (000029FC) IN CSECT(I7823 ) LENGTH (2) 
2534 T80J aaeeeon HEX LOCATION (00003766) IN CSECT(I7823 ) LENGTH (2) 62 XTRNL a aaa HEX VALUE (00000001) 
2496 TSOM SADDRESS. HEX LOCATION(OO0036DA) IN CSECT(I7823 ) LENGTH(4) 
ee abet osoeenee HEX LOCATION (00003620) IN CSECT(I7623  ) LENGTH (4) eI oo aac a iiiek aloo aioe iooe itocioiok “LAST PAGE 0G Ge Oo oR aa da ooo ak 
2540 TBORE SADDRESS, HEX LOCATION (00003770) IN CSECT(I7623 ) LENGTH (2) 
2528 T8ORR hb PheSs- HEX LOCATION (00003750) IN CSECT (I7823 ) LENGTH (6) 
2436 80S SADDRESS. HEX LOCATION (0000361C) IN CSECT(I7823 ) LENGTH (6) 
2512 7T80SS SADBRESS, ,HEX LOCATION (00003710) IN CSECT(I7823 ) LENGTH (4) 
2544 T80ST DADDRESS. HEX LOCATION (00003776) IN CSECT(I7823 ) LENGTH (1) 
\ 
2539 TsoTP DADDRESS, HEX LOCATION (0000376C) IN CSECT(I7823 ) LENGTH (2) 
2538  T80U ADDRESS. HEX TOcATTON(09003768) IN CSECT (17823 ENGTH (2 
ant 3012, 2473 2u7G | Bhos) Seay. ‘geoa, =) (2) ) 
2486  TB0X DADDRESS. | HEX LOCATION (00003603) IN Sher (47423 ) LENGTH(M) 
2542 T80XR SADDRESS. HEX LOCATION (00003774) IN CSECT(I7823 ) LENGTH (2) 
2322 = TAA SARBRESS. HEX LOCATION(00003536) IN CSECT(I7823 ) LENGTH (6) 
2329 1818 SADDRESS. HEX LOCATION(00003556) IN CSECT(I7823 ) LENGTH (4) | 
2315 TB81C SROPRESS. HEX LOCATION (00003522) IN CSECT(I7823 ) LENGTH (4) 
2295  ‘T81CC DADDRESS. HEX LOCATION(000034DE) IN CSECT(I7823  ) LENGTH(4) 
2262 81D DADDRESS. HEX LOCATION(00003484) IN CSECT(I7823 ) LENGTH (4) 
2289 Ss TB1EB ADDRESS. HEX LOCATION (000034D4) IN CSECT(I7823  ) LENGTH(6) 


